Imports System
Imports System.Collections.Generic
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Animation
Imports System.Windows.Media.Imaging
Imports System.Windows.Navigation
Imports System.Windows.Shapes
Imports OMANE.Common.UI
Imports ICSharpCode.AvalonEdit.Highlighting
Imports System.CodeDom.Compiler
Imports System.Linq.Expressions
Imports System.Data
Imports OMANE.Modules.Builder.MSFunctions
Imports OMANE.Modules.Builder.MSExpression
Imports ICSharpCode.AvalonEdit.CodeCompletion
Imports System.ComponentModel


Public Class TestModel
    Inherits MSTable

    Dim _Categorie As OMANE.Modules.Builder.MSProperty
    Dim _Age As OMANE.Modules.Builder.MSProperty
    Dim _Sexe As OMANE.Modules.Builder.MSProperty
    Dim _Taille As OMANE.Modules.Builder.MSProperty
    Dim _Poids As OMANE.Modules.Builder.MSProperty


    Sub New(ByVal universe As MSUniverse)
        MyBase.New(universe)
        Me.Age = New MSProperty(Me, "AGE")
        Me.Poids = New MSProperty(Me, "WEIGHT")
        Me.Taille = New MSProperty(Me, "HEIGHT")
        Me.Sexe = New MSProperty(Me, "SEXE")
        Me.Categorie = New MSProperty(Me, "CATEGORY")

        Properties = {Age, Poids, Taille, Sexe, Categorie}
    End Sub

    Public Property Categorie As MSProperty
        Get
            Return Me._Categorie
        End Get
        Private Set(ByVal value As MSProperty)
            Me._Categorie = value
        End Set
    End Property

    Public Property Age As MSProperty
        Get
            Return Me._Age
        End Get
        Private Set(ByVal value As MSProperty)
            Me._Age = value
        End Set
    End Property

    Public Property Poids As MSProperty
        Get
            Return Me._Poids
        End Get
        Private Set(ByVal value As MSProperty)
            Me._Poids = value
        End Set
    End Property

    Public Property Taille As MSProperty
        Get
            Return Me._Taille
        End Get
        Private Set(ByVal value As MSProperty)
            Me._Taille = value
        End Set
    End Property

    Public Property Sexe As MSProperty
        Get
            Return Me._Sexe
        End Get
        Private Set(ByVal value As MSProperty)
            Me._Sexe = value
        End Set
    End Property

End Class
